Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/Intro to HyperCard 2.0/background_7610.txt

Text File | 1990-08-24 | 9KB | 326 lines

-- background: 7610 from stack: in.0
-- bmap block id: 9088
-- flags: 0000
-- background id: 0
-- name: first of sections
----- HyperTalk script -----
-- Globals
--      StdDelay:      a standard delay for hilites and card transitions
--      UpEdge:        the Y coord where the flying btn stops on menu anis
--
--      TheSource:     the name of the checkBox btn of the chosen topic
--                     (this var is set in the btn scripts)
--      OriginCdName:  the name of the current card -
--                     also the name of the icon used for submenu btn
--      TopSelBtn:     the top of the selected button
--
-- Locals
--      ShortDestName: the short name of the target btn -
--                     also the name of the first card for this option
--      FullDestName:  the full name of the target btn -
--                     also the name of the interm btns
--      SubTitleRect:  the rect of the selected option btn
--

on mouseUp
  global TheSource, OriginCdName, TopSelBtn
  global UpEdge, StdDelay

  --  ignore any clicks that aren't on buttons
  if "button" is not in the target then exit mouseUp

  --    get the names for the chosen topic, and the rect of the btn
  put the short name of the target into FullDestName
  put char 1 to 15 of FullDestName into ShortDestName
  put the rect of the target into SubTitleRect
  put the top of the target into TopSelBtn
  --    if this item is not checked, check it, AND
  --    do the flying button animation
  --    (only happens first time user views a section)
  if the icon of btn TheSource is not 15007 then
    set the icon of btn TheSource to "checkbox"

    --    set up interm1 cd and go to it
    --    (interm1 cd shows chosen btn alone - step 1 in flying btn)
    put fld "title" into fld "title" of cd "interm1"
    set the name of btn id 1 of cd "interm1" to FullDestName
    set the rect of btn id 1 of cd "interm1" to SubTitleRect
    visual dissolve fast
    go to cd "Interm1"

    --    zoom out the menu fld to a panel btn
    moveTitle OriginCdName
    wait StdDelay
    --    reset the interm1 cd
    lock screen
    resetTitle

    --    go to interm2 cd and set it up
    --    (interm2 cd shows flying btn at top of screen - fly.btn step 2)
    go to cd "Interm2"
    set the name of bg btn id 16 to FullDestName
    set the rect of bg btn id 16 to SubTitleRect
    set the icon of bg btn "section" to OriginCdName
    unlock screen with visual dissolve fast

    --    make the button "fly"
    set the top of bg btn id 16 to UpEdge
    wait StdDelay

    --    done with the flying button effect, so go to the actual cd
    visual dissolve fast
    if "self" is in FullDestName then
      go to cd OriginCdName of "•HC 2.0-4"
    else if "support" is in FullDestName then
      go to cd ShortDestName of "•HC 2.0-4"
    else
      go to cd ShortDestName
    end if
  else
    --    just go to the appropriate cd
    if "self" is not in FullDestName and "support" is not in FullDestName then
      set the name of bg btn id 16 of cd ShortDestName to FullDestName
      set the rect of bg btn id 16 of cd ShortDestName to SubTitleRect
      set the top  of bg btn id 16 of cd ShortDestName to UpEdge
      set the icon of bg btn "section" of cd ShortDestName to OriginCdName
    end if
    visual dissolve fast
    if "self" is in FullDestName then
      go to cd OriginCdName of "•HC 2.0-4"
    else if "support" is in FullDestName then
      go to cd ShortDestName of "•HC 2.0-4"
    else
      go to cd ShortDestName
    end if
  end if
end mouseUp


--    makes card title appear to transform itself into the submenu btn
on moveTitle destName
  repeat 2
    set the hilite of bg btn "title" to not the hilite of bg btn "title"
    wait 10
  end repeat
  if not the lockScreen then zoomRect the rect of fld "title", the rect of bg btn "section"
  lock screen
  hide bg btn "grey1"
  hide bg btn "grey2"
  hide fld "title"
  set the icon of bg btn "section" to destName
  unlock screen
end moveTitle

on resetTitle
  show bg btn "grey1"
  show bg btn "grey2"
  show field "title"
end resetTitle

-- Check the left Headline on all 3 cds
on checkA
  set the icon of btn "checkboxA" of cd "section 2:" to "checkbox"
  set the icon of btn "checkboxA" of cd "section 2:1" to "checkbox"
  set the icon of btn "checkboxA" of cd "section 2:2" to "checkbox"
  visual wipe right
  go card "section 2:1"
end checkA

-- Check the right Headline on all 3 cds
on checkB
  set the icon of btn "checkboxB" of cd "section 2:" to "checkbox"
  set the icon of btn "checkboxB" of cd "section 2:1" to "checkbox"
  set the icon of btn "checkboxB" of cd "section 2:2" to "checkbox"
  visual wipe right
  go card "section 2:2"
end checkB





-- part 1 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=165 top=9 right=59 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 24
-- style flags: 256
-- line height: 24
-- part name: title


-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=473 top=17 right=50 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 178 / 178
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mainMenuIcon
----- HyperTalk script -----
on mouseUp
  hilite the target, 1, 20
  visual dissolve
  go cd "go to main menu"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=475 top=59 right=88 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 5553 / 5553
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: section
----- HyperTalk script -----
on mouseUp
  visual scroll down
  go cd "mainMenu1"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=473 top=54 right=86 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 28467 / 28467
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: grey1
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=473 top=76 right=108 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 28467 / 28467
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: grey2
----- HyperTalk script -----
on mouseUp

end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=195 right=224 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 24471 / 24471
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MapBtn
----- HyperTalk script -----
-- Go to the Map stack.  "CameFrom" holds the name of this cd
-- so the Map can hilite the cd the user came from.
on mouseUp
  global DisSpeed, CameFrom, MapMode
  set the hilite of me to true
  lock Screen
  set the hilite of me to false
  put the short name of this cd into CameFrom
  visual DisSpeed
  if MapMode is "graph" then
    go stack "•HC 2.0-3"
    HiliteMap
  else
    go to cd "indexMap" of stack "•HC 2.0-3"
  end if
  unlock screen with DisSpeed
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=474 top=235 right=264 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HomeBtn
----- HyperTalk script -----
on mouseUp
  answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  if it is not "Cancel" then
    global CameFrom,stakName
    put the short name of this cd into CameFrom
    put the short name of this stack into stakName
    if it is "Quit" then doMenu "Quit HyperCard"
    else if it is "Go Home" then doMenu "Home"
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=173 top=1 right=63 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: title
----- HyperTalk script -----
on mouseUp


end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=149 top=63 right=81 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instruct